home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00195_BLUEADD.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  818 b   |  38 lines
  1. on BLUEADD
  2.   global GRIDY, GRIDV, GRIDH, KK, KKK, KN, NU, SOND, DT
  3.   set DT to 35
  4.   set NU to 0
  5.   set KK to 0
  6.   repeat while KK = 0
  7.     set NU to NU + 1
  8.     set KKK to random(10)
  9.     set KN to (KKK * 14) - 13
  10.     if NU > 150 then
  11.       set KN to random(12)
  12.     end if
  13.     if getAt(GRIDV, KN) = 0 then
  14.       set KK to KN
  15.     end if
  16.   end repeat
  17.   if SOND = 0 then
  18.     puppetSound("WISH")
  19.   end if
  20.   set the locH of sprite 10 to getAt(GRIDH, KN)
  21.   set the locV of sprite 10 to getAt(GRIDY, KN)
  22.   setAt(GRIDV, KN, 2)
  23.   repeat with N = 1 to 3
  24.     if N = 1 then
  25.       set the castNum of sprite 10 to 198
  26.     end if
  27.     if N = 2 then
  28.       set the castNum of sprite 10 to 197
  29.     end if
  30.     if N = 3 then
  31.       set the castNum of sprite 10 to 9
  32.     end if
  33.     updateStage()
  34.     COUNTTIME()
  35.   end repeat
  36.   REMOVESPRITE()
  37. end
  38.